home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-20 / rs157u.zip / RSMDMXFR.BAT < prev   
DOS Batch File  |  1989-12-01  |  1KB  |  61 lines
  1. REM Adapted for ROSERVER Telphone interface from XFERCTL.BAT by
  2. REM Vince Quaresima (K2NE) who created it for Citadel Landline BBS
  3. REM System.  <br-ka2bqe>
  4. REM
  5. echo OFF
  6. cls
  7. echo ********************************************
  8. echo *
  9. echo *   ROSERVER Modem File Transfer Interface
  10. echo *         Current user:  %4 
  11. echo *
  12. echo ********************************************
  13. goto %1
  14.  
  15. :uxc
  16. REM xmodem crc receive file section
  17. dsz port %2 rc %3
  18. if ERRORLEVEL 1 del %3
  19. goto end
  20.  
  21. :ux
  22. dsz port %2 rx %3
  23. if ERRORLEVEL 1 del %3
  24. goto end
  25.  
  26. :uy
  27. dsz port %2 rx -k %3
  28. if ERRORLEVEL 1 del %3
  29. goto end
  30.  
  31. :uj
  32. jmodem r2 %3
  33. if ERRORLEVEL 1 del %3
  34. goto end
  35.  
  36. :uz
  37. dsz port %2 rz %3
  38. if ERRORLEVEL 1 del %3
  39. goto end
  40.  
  41. :dx
  42. dsz port %2 sx %3
  43. goto end
  44.  
  45. :dy
  46. dsz port %2 sb -k %3
  47. goto end
  48.  
  49. :dz
  50. dsz port %2 sz %3
  51. goto end
  52.  
  53. :dj
  54. jmodem s%2 %3
  55. goto end
  56.  
  57. :end
  58. cls
  59. echo .
  60. echo Returning to BBS...
  61.